上一篇笔记说明了如何使用通过事物代码SMARTFORMS创建的Text Module对象如何在Adobe Form中进行展示。本篇笔记记录如何在Adobe Form中使用和展示Include Text对象。该对象展示的其实是SAP通过事物代码 SO10 创建和维护的Standard Texts(标准文本)。

Adobe Form显示Include Text

一、介绍

上一篇笔记说明了如何使用通过事物代码SMARTFORMS创建的Text Module对象如何在Adobe Form中进行展示。本篇笔记记录如何在Adobe Form中使用和展示Include Text对象。

该对象展示的其实是SAP通过事物代码 SO10 创建和维护的Standard Texts(标准文本)。

二、功能实现

1.Standard Text/Include Text

（1）创建标准文本

因为在后面的Form中需要使用到标准文本，所以提前创建好。

使用事务代码 SO10 创建 Standard Text 。输入文本对象的名称然后点击 Create 按钮。

（2）维护文本内容_英文

在Text对象中填入英文的内容。完成之后点击上方的保存按钮保存文本对象。

（3）维护文本内容_中文

我们回到SO10的界面，然后更换语言为ZH，点击Create按钮。再为该文本对象维护下中文的文本内容。

参照下面的内容维护完成之后点击保存按钮，保存文本对象。

2.Interface

（1）创建Interface

使用事物代码 SFP 打开创建界面，在输入框中填入Interface的名称。

（2）填写描述

（3）创建输入参数

双击左侧Form Interface下的Import页签。在右侧的界面点击创建/新增按钮，添加输入参数。操作完成之后点击保存按钮并激活对象。

1	IV_LANGU TYPE SY-LANGU.

3.Adobe Form

（1）创建Adobe Form

使用事物代码 SFP 回到Adobe Form的创建界面。

（2）填写描述与绑定Interface

（3）导入Interface的参数

从左侧的import页签下将IV_LANGU。参数拖动到右侧Adobe Form下的Context下。

（4）新建Text对象

按照下图所示的方式，新建一个文本对象，然后修改文本类型为Include Text。

修改文本类型。

（5）设置Text对象属性

将文本对象的属性设置为Include后，将上面通过SO10创建的标准文本名称填入其中。然后再勾选上“No error if text does not exist”。

（6）展示文本对象

打开Layout页签，在左侧选中Data View页签。将创建的文本对象拖动到Form界面中。

操作完成上面的内容之后，保存并激活文本对象。

三、Form测试

1.程序测试

（1）源代码

*======================================================================*
* Selection Screen
*======================================================================*
PARAMETERS :
  P_LANGU TYPE SPRAS.    "Language

*======================================================================*
* Data Objects
*======================================================================*

DATA: GV_FM_NAME         TYPE RS38L_FNAM, " FM Name
      GS_FP_DOCPARAMS    TYPE SFPDOCPARAMS,
      GS_FP_OUTPUTPARAMS TYPE SFPOUTPUTPARAMS.

*======================================================================*
* Constants
*======================================================================*
CONSTANTS : GV_FORM_NAME TYPE FPNAME VALUE 'YADOBE_FORM_DEMO8'.

*======================================================================*
* START of Calling the Form
*======================================================================*
*&---------------------------------------------------------------------*
**&&~~ Form Processing: Call Form - Open
*
CALL FUNCTION 'FP_JOB_OPEN'
  CHANGING
    IE_OUTPUTPARAMS = GS_FP_OUTPUTPARAMS
  EXCEPTIONS
    CANCEL          = 1
    USAGE_ERROR     = 2
    SYSTEM_ERROR    = 3
    INTERNAL_ERROR  = 4
    OTHERS          = 5.
IF SY-SUBRC <> 0.
  " Suitable Error Handling
ENDIF.
*&---------------------------------------------------------------------*
**&&~~ Get the Function module name based on Form Name
*
CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
  EXPORTING
    I_NAME     = GV_FORM_NAME
  IMPORTING
    E_FUNCNAME = GV_FM_NAME.
IF SY-SUBRC <> 0.
  " Suitable Error Handling
ENDIF.

*&---------------------------------------------------------------------*
**&&~~ Take the FM name by executing the form - by using Pattern-
**&&~~ call that FM and replace the FM Name by gv_fm_name
**&&~~ Call the Generated FM
CALL FUNCTION GV_FM_NAME "'/1BCDWB/SM00000204'
  EXPORTING
    /1BCDWB/DOCPARAMS = GS_FP_DOCPARAMS
    IV_LANGU          = P_LANGU
* IMPORTING
*   /1BCDWB/FORMOUTPUT =
  EXCEPTIONS
    USAGE_ERROR       = 1
    SYSTEM_ERROR      = 2
    INTERNAL_ERROR    = 3
    OTHERS            = 4.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&---- Close the spool job
CALL FUNCTION 'FP_JOB_CLOSE'
  EXCEPTIONS
    USAGE_ERROR    = 1
    SYSTEM_ERROR   = 2
    INTERNAL_ERROR = 3
    OTHERS         = 4.
IF SY-SUBRC <> 0.
* <error handling>
ENDIF.